Accidentes de transito en CR entre 2016-2022

anioCTG<-data %>%
  group_by(Año,Tipo.de.circulación,Estado.del.tiempo,Clase.de.accidente) %>%
  summarise(NumeroAccidentes=n(),.groups="drop")

anioCTG<-anioCTG%>%
  group_by(Año,Tipo.de.circulación,Estado.del.tiempo,Clase.de.accidente)%>%
  summarise(Accidentes = min(NumeroAccidentes),.groups = "drop")%>%
  arrange(Accidentes)
anioCTG<-anioCTG%>%
  rename(Circulacion = Tipo.de.circulación)%>%
  rename(Clima = Estado.del.tiempo)%>%
  rename(Gravedad = Clase.de.accidente)

anioCTG$Año<-substr(anioCTG$Año, start = 3, stop = nchar(anioCTG$Año))
#elimino el 20 del año para que sea mejor la respresentación textual
#o sea en vez de 2016 sale 16

grafica_de_graficas <- subplot(puntos_años_interactiva, barras_hora_interactiva, nrows = 2)

grafica_de_graficas